home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Helper 1: Phil & Dave's Excellent CD
/
Excellent CD HFS.raw
/
Moof
/
Goodies
/
MPW Goodies
/
MPW Goodies⁄DTS
/
LookupMenu
< prev
next >
Wrap
Text File
|
2022-08-05
|
1KB
|
29 lines
#
# The Lookup Menu
#
AddMenu Lookup 'Lookup/L' 'Lookup "{Lookup}" ∑ Dev:Null &&∂
( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
Set Lookup "{®1}"'
AddMenu Lookup 'Lookup RW/¬' 'Lookup -w "{Lookup}" ∑ Dev:Null &&∂
( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
Set Lookup "{®1}"'
AddMenu Lookup (- ' '
For Lookup in '{MAPInterfaces}' '{MACIncludes}' '{MALibraries}' '{MARIncludes}' '{MAExamples}'
AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null &&∂
( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
Set Lookup "{®1}"'
End
AddMenu Lookup (- ' '
For Lookup in '{CIncludes}' '{PInterfaces}' '{AIncludes}' '{RIncludes}'
AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null &&∂
( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
Set Lookup "{®1}"'
End
AddMenu Lookup (- ' '
For Lookup in '{MPW}Scripts:' '{MPW}'
AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null && ∂
( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑ Dev:Null && ∂
Set Lookup "{®1}"'
End